#!/usr/bin/perl

#open(OUT, ">$ARGV[1]") or die "$ARGV[1] cannot be opened.\n";

open(IN, $ARGV[0]) or die "$ARGV[0] cannot be opened.\n";

while(<IN>)
{
	my($line)=$_;
	chomp($line);

	@block1=split(' ', $line);
	print "$block1[2]\n";


	@block2=split(':', $block1[2]);
	print "$block2[0] $block2[1] $block2[2]\n";
	$time = $block2[2]+$block2[1]*60+$block2[0]*3600;
	print "$time\n";
}

close(IN);
